package Data::Domain::Net::IPAddress::IPv6_TEST;

use strict;
use warnings;
use Data::Domain::Net ':all';
use Test::More;


our $VERSION = '0.02';


use base qw(
    Data::Domain::SemanticAdapter::Test
    Data::Semantic::Net::IPAddress::TestData::IPv6
);


use constant PLAN => 3;


sub run {
    my $self = shift;
    $self->SUPER::run(@_);

    my $domain = IPv6();

    isa_ok($domain, 'Data::Domain::Net::IPAddress::IPv6');
    isa_ok($domain, 'Data::Domain::SemanticAdapter');
    isa_ok($domain->adaptee, 'Data::Semantic::Net::IPAddress::IPv6');
}


1;


__END__

{% PROCESS complete/domain_companion %}
